object F_Parcelas: TF_Parcelas
  Left = 321
  Top = 179
  Align = alCustom
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Parcelas'
  ClientHeight = 468
  ClientWidth = 657
  Color = clInfoBk
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 7
    Top = 403
    Width = 641
    Height = 57
    Alignment = taCenter
    AutoSize = False
    Caption = 'Label1'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -45
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label2: TLabel
    Left = 8
    Top = 15
    Width = 185
    Height = 22
    Caption = 'NOME   ou  C'#211'DIGO'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 11
    Top = 402
    Width = 641
    Height = 34
    Alignment = taCenter
    AutoSize = False
    Caption = 'ERROR   -  CONSULTAR  A DIRE'#199#195'O !!!'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -29
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object DBText3: TDBText
    Left = 270
    Top = 126
    Width = 79
    Height = 22
    AutoSize = True
    DataField = 'CPF'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object DBText7: TDBText
    Left = 48
    Top = 188
    Width = 52
    Height = 16
    AutoSize = True
    DataField = 'DATANIVER'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object DBText2: TDBText
    Left = 200
    Top = 188
    Width = 52
    Height = 16
    AutoSize = True
    DataField = 'FAIXASALARIAL'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object DBText5: TDBText
    Left = 368
    Top = 188
    Width = 52
    Height = 16
    AutoSize = True
    DataField = 'TELEFONE'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object DBText6: TDBText
    Left = 514
    Top = 188
    Width = 52
    Height = 16
    AutoSize = True
    DataField = 'INF_ADICIONAL'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label12: TLabel
    Left = 8
    Top = 159
    Width = 122
    Height = 24
    Caption = 'Vendedor(a)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label13: TLabel
    Left = 228
    Top = 127
    Width = 40
    Height = 20
    Caption = 'CPF:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object SpeedButton1: TSpeedButton
    Left = 424
    Top = 14
    Width = 23
    Height = 22
    Glyph.Data = {
      76020000424D7602000000000000760000002800000020000000200000000100
      0400000000000002000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000
      000000000FFFFFFFFFFFFFFFFFFFF00FFFFFFFFF00000FFFFFFFFFFFFFFFF00F
      FF07700088880FFFFFFFFFFFFFFFF000FF00BBFBFBFB0FFFFFFFFFFFFFFFF000
      0FFF0FBFBFBF0FFFFFFFFFFFFFFFFFF0B0000BFBFBFB0FFFFFFFFFFFFFFFFFF0
      BFBFBFBFBFBF0FFFFFFFFFFFFFFFFFF0FBFBFBFBFBFB0FFFFFFFFFFFFFFFFFF0
      BFBFBFBFBFBF0FFFFFFFFFFFFFFFFFF0000000000000FFFFFFFFFFFFFFFFFFFF
      0BFBFB0FFFFFFFFFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    OnClick = SpeedButton1Click
  end
  object L_Carro: TPanel
    Left = 3
    Top = 89
    Width = 647
    Height = 28
    BevelOuter = bvNone
    Caption = 'L_Carro'
    Color = clInfoBk
    Font.Charset = ANSI_CHARSET
    Font.Color = clGray
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object E_Usuario: TRxLookupEdit
    Left = 140
    Top = 156
    Width = 265
    Height = 27
    LookupField = 'UCUSERNAME'
    LookupSource = DstUsuario
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnKeyPress = E_UsuarioKeyPress
  end
  object L_NomeCliente: TPanel
    Left = 3
    Top = 49
    Width = 647
    Height = 41
    BevelOuter = bvNone
    Caption = 'L_NomeCliente'
    Color = clInfoBk
    Font.Charset = ANSI_CHARSET
    Font.Color = clTeal
    Font.Height = -27
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object E_Nome: TEdit
    Left = 208
    Top = 7
    Width = 212
    Height = 30
    CharCase = ecUpperCase
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnEnter = E_NomeEnter
    OnKeyDown = E_NomeKeyDown
    OnKeyPress = E_NomeKeyPress
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 208
    Width = 633
    Height = 185
    Caption = 'Parcelas'
    TabOrder = 1
    object Label3: TLabel
      Left = 96
      Top = 23
      Width = 67
      Height = 13
      Caption = 'Qtde Parcelas'
    end
    object Label5: TLabel
      Left = 264
      Top = 23
      Width = 65
      Height = 13
      Caption = 'Valor A Pagar'
    end
    object Label6: TLabel
      Left = 8
      Top = 23
      Width = 52
      Height = 13
      Caption = 'Valor Pago'
    end
    object Label7: TLabel
      Left = 184
      Top = 23
      Width = 60
      Height = 13
      Caption = 'Acrescimo %'
    end
    object Label8: TLabel
      Left = 8
      Top = 78
      Width = 167
      Height = 13
      Caption = 'Data de Vencimento da 1'#186' Parcela.'
    end
    object E_Vencimento: TRxLookupEdit
      Left = 8
      Top = 94
      Width = 45
      Height = 21
      LookupField = 'Dia_Vencimento'
      LookupSource = Ds_Dia
      DirectInput = False
      TabOrder = 2
      Text = '10'
      OnButtonClick = E_VencimentoButtonClick
      OnKeyDown = E_VencimentoKeyDown
      OnKeyPress = E_VencimentoKeyPress
    end
    object B_GerarParcelas: TBitBtn
      Left = 255
      Top = 94
      Width = 90
      Height = 21
      Caption = '&Gerar Parcelas'
      TabOrder = 3
      OnClick = B_GerarParcelasClick
      OnKeyDown = B_GerarParcelasKeyDown
    end
    object GridParcela: TwwDBGrid
      Left = 350
      Top = 39
      Width = 273
      Height = 133
      TabStop = False
      DisableThemes = False
      Selected.Strings = (
        'Nparcela'#9'8'#9'N'#186' '
        'Vparcela'#9'14'#9'Valor'
        'Vencimento'#9'15'#9'Vencimento')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      DataSource = DataParcela
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit]
      ReadOnly = True
      TabOrder = 6
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      OnKeyDown = GridParcelaKeyDown
    end
    object E_ValorTotal: TCurrencyEdit
      Left = 264
      Top = 39
      Width = 81
      Height = 21
      TabStop = False
      AutoSize = False
      ReadOnly = True
      TabOrder = 7
    end
    object E_Acrescimo: TRxCalcEdit
      Left = 184
      Top = 39
      Width = 65
      Height = 21
      AutoSize = False
      ButtonWidth = 0
      MaxValue = 1000.000000000000000000
      NumGlyphs = 2
      TabOrder = 1
      OnChange = E_AcrescimoChange
      OnKeyDown = E_AcrescimoKeyDown
      OnKeyPress = E_AcrescimoKeyPress
    end
    object E_NumParcelas: TRxCalcEdit
      Left = 96
      Top = 39
      Width = 73
      Height = 21
      AutoSize = False
      DecimalPlaces = 0
      ButtonWidth = 0
      MaxValue = 50.000000000000000000
      MinValue = 1.000000000000000000
      NumGlyphs = 2
      TabOrder = 0
      Value = 1.000000000000000000
      OnChange = E_NumParcelasChange
      OnEnter = E_NumParcelasEnter
      OnKeyDown = E_NumParcelasKeyDown
      OnKeyPress = E_NumParcelasKeyPress
    end
    object E_ValorEntrada: TCurrencyEdit
      Left = 8
      Top = 39
      Width = 81
      Height = 21
      TabStop = False
      AutoSize = False
      ReadOnly = True
      TabOrder = 8
      OnKeyDown = E_ValorEntradaKeyDown
    end
    object E_promissoria: TCheckBox
      Left = 8
      Top = 151
      Width = 117
      Height = 17
      Caption = 'Imprimir Promiss'#243'rias'
      TabOrder = 4
      OnKeyDown = E_promissoriaKeyDown
    end
    object B_FecharPromis: TBitBtn
      Left = 252
      Top = 147
      Width = 93
      Height = 21
      Caption = '&Fecha Promiss'#243'ria'
      TabOrder = 5
      OnClick = B_FecharPromisClick
      OnEnter = B_FecharPromisEnter
      OnKeyDown = B_FecharPromisKeyDown
    end
    object E_VencimentoMes: TRxLookupEdit
      Left = 61
      Top = 94
      Width = 45
      Height = 21
      DirectInput = False
      TabOrder = 9
      Text = 'E_VencimentoMes'
      OnButtonClick = E_VencimentoMesButtonClick
    end
    object E_VencimentoAno: TRxLookupEdit
      Left = 116
      Top = 94
      Width = 69
      Height = 21
      DirectInput = False
      TabOrder = 10
      Text = 'E_VencimentoAno'
      OnButtonClick = E_VencimentoAnoButtonClick
    end
  end
  object Panel1: TPanel
    Left = 3
    Top = 53
    Width = 652
    Height = 341
    BevelOuter = bvNone
    ParentBackground = False
    ParentColor = True
    TabOrder = 4
    object wwDBGrid1: TwwDBGrid
      Left = 6
      Top = 0
      Width = 638
      Height = 332
      DisableThemes = False
      Selected.Strings = (
        'NOME_CLIENTE'#9'48'#9'Nome '
        'TELEFONE'#9'18'#9'Telefone'
        'CELULAR'#9'18'#9'Celular')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = False
      ShowVertScrollBar = False
      DataSource = Dm_Querys.Dsq_Clientes
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Options = [dgTitles, dgColLines, dgRowSelect, dgAlwaysShowSelection, dgWordWrap, dgPerfectRowFit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      Visible = False
      OnKeyDown = wwDBGrid1KeyDown
    end
  end
  object Gb_infom: TGroupBox
    Left = 449
    Top = -1
    Width = 197
    Height = 43
    TabOrder = 5
    Visible = False
    object Label10: TLabel
      Left = 5
      Top = 9
      Width = 172
      Height = 16
      Caption = '(Enter)  Seleciona o cliente'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 5
      Top = 25
      Width = 85
      Height = 16
      Caption = '(Esc)     Volta '
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Parcelas: TRxMemoryData
    Active = True
    FieldDefs = <
      item
        Name = 'Nparcela'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Vparcela'
        DataType = ftCurrency
      end
      item
        Name = 'Vencimento'
        DataType = ftDate
      end>
    Left = 408
    Top = 292
    object ParcelasNparcela: TStringField
      DisplayLabel = 'N'#186' '
      DisplayWidth = 8
      FieldName = 'Nparcela'
    end
    object ParcelasVparcela: TCurrencyField
      DisplayLabel = 'Valor'
      DisplayWidth = 14
      FieldName = 'Vparcela'
    end
    object ParcelasVencimento: TDateField
      DisplayWidth = 15
      FieldName = 'Vencimento'
    end
  end
  object DataParcela: TwwDataSource
    DataSet = Parcelas
    Left = 464
    Top = 292
  end
  object RxM_Dia: TRxMemoryData
    FieldDefs = <
      item
        Name = 'Dia_Vencimento'
        DataType = ftString
        Size = 2
      end>
    Left = 24
    Top = 328
    object RxM_DiaDia_Vencimento: TStringField
      DisplayWidth = 4
      FieldName = 'Dia_Vencimento'
      Size = 4
    end
  end
  object Ds_Dia: TwwDataSource
    DataSet = RxM_Dia
    Left = 24
    Top = 360
  end
  object DstUsuario: TDataSource
    DataSet = Dm_Querys.QryUsuario
    Left = 416
    Top = 109
  end
end
